home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Cached Login.xpl < prev    next >
Text File  |  2003-08-05  |  2KB  |  46 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH 1"="Network\Security\Passwords"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  6. "UIPATH 3"="System\Security\Common"
  7. "NAME"="Cached Login Count"
  8. "OSVERSION"="0101011"
  9. "WARNING"="1"
  10. "VERSION"="1.00"
  11. "LANGUAGE"="VBScript"
  12. "TEXT 1"="Count"
  13. "DESCRIPTION 1"=1"Windows generally distinguishes two sorts of user accounts: local and remote accounts. A local account is an account created and managed by the local machine while a remote account is managed by a server somewhere else. Usually a remote account is basically a Windows Domain account.
  14. "DESCRIPTION 2"="For example, you might use this computer at home and at the office. At the office you log in as CORP\BillyK while at home you login MYCOMPUTER\Billy. When you need to work for your company, you properly want to log-in as CORP\BillK, not with the local user account. However, at that time you are not connected with your CORP domain so normally you couldn't login. 
  15. "DESCRIPTION 3"="But Windows is able to use a cached login, so you can still login as CORP\BillyK even if there is no domain controller available. Means: You are using a cached login for a remote account.
  16. "DESCRIPTION 4"="How many times you can do this is specified by this value. If you enter "0", you CAN NOT login without a live connection to the domain controller. Clearing the field restores Windows's default values. 
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://members.aol.com/ojatex/"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=""
  21.  
  22. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\CachedLogonsCount" 'STRING!
  23.  
  24. Sub Plugin_Initialize 
  25.  i=RegReadValue(sP)
  26.  SetUIElement 1,i
  27. End Sub
  28.  
  29. Sub Plugin_CheckData(ElementIndex)
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  i=GetUIElement(1)
  34.  
  35.  if len(i)=0 then
  36.     If RegValueExists(sP) then RegDeleteValue(sP)
  37.  else
  38.     Call RegWriteValue(sP,i,1)
  39.  end if
  40.  
  41.  Call Restart()
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.